﻿<Serializable()> _
Public Class Edevolucion

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idDevolucion As Int32
    Private _idSeparacionVenta As Int32
    Private _idEdiMzn As Int32
    Private _idUndInmob As Int32
    Private _idModelo As Int32
    Private _nroDocumento As String
    Private _fchSeparacionVenta As String
    Private _Ecliente As Ecliente
    Private _EedificioManz As EedificioManz
    Private _EmodeloInmueble As EmodeloInmueble
    Private _EtpoInmueble As EtpoInmueble
    Private _EunidInmobiliarias As EunidInmobiliarias
    Private _EmotDevInmueble As EmotDevInmueble
    Private _fchDevolucion As String
    Private _tpoGestion As Int32
    Private _descGestion As String
    Private _montPenalidad As Decimal
    Private _estado As String
    Private _desEstado As String
    Private _idUsuario As Int32

    Private _nombresCompletosCliente As String
    Private _nombreTpoInmueble As String
    Private _nroInmueble As String
    Private _descMotDevInmueble As String
    Private _fchInicio As String
    Private _fchFin As String
    Private _filtro As String
    Private _inmueble As String
    Private _idProforma As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property

    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idDevolucion() As Int32
        Get
            Return _idDevolucion
        End Get
        Set(ByVal value As Int32)
            _idDevolucion = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idEdiMzn() As Int32
        Get
            Return _idEdiMzn
        End Get
        Set(ByVal value As Int32)
            _idEdiMzn = value
        End Set
    End Property
    Public Property idUndInmon() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property idModelo() As Int32
        Get
            Return _idModelo
        End Get
        Set(ByVal value As Int32)
            _idModelo = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property fchSeparacionVenta() As String
        Get
            Return _fchSeparacionVenta
        End Get
        Set(ByVal value As String)
            _fchSeparacionVenta = value
        End Set
    End Property
    Public Property Ecliente() As Ecliente
        Get
            Return _Ecliente
        End Get
        Set(ByVal value As Ecliente)
            _Ecliente = value
        End Set
    End Property
    Public Property EedificioManz() As EedificioManz
        Get
            Return _EedificioManz
        End Get
        Set(ByVal value As EedificioManz)
            _EedificioManz = value
        End Set
    End Property
    Public Property EmodeloInmueble() As EmodeloInmueble
        Get
            Return _EmodeloInmueble
        End Get
        Set(ByVal value As EmodeloInmueble)
            _EmodeloInmueble = value
        End Set
    End Property
    Public Property EtpoInmueble() As EtpoInmueble
        Get
            Return _EtpoInmueble
        End Get
        Set(ByVal value As EtpoInmueble)
            _EtpoInmueble = value
        End Set
    End Property
    Public Property EunidInmobiliarias() As EunidInmobiliarias
        Get
            Return _EunidInmobiliarias
        End Get
        Set(ByVal value As EunidInmobiliarias)
            _EunidInmobiliarias = value
        End Set
    End Property
    Public Property EmotDevInmueble() As EmotDevInmueble
        Get
            Return _EmotDevInmueble
        End Get
        Set(ByVal value As EmotDevInmueble)
            _EmotDevInmueble = value
        End Set
    End Property
    Public Property fchDevolucion() As String
        Get
            Return _fchDevolucion
        End Get
        Set(ByVal value As String)
            _fchDevolucion = value
        End Set
    End Property
    Public Property tpoGestion() As Int32
        Get
            Return _tpoGestion
        End Get
        Set(ByVal value As Int32)
            _tpoGestion = value
        End Set
    End Property
    Public Property descGestion() As String
        Get
            Return _descGestion
        End Get
        Set(ByVal value As String)
            _descGestion = value
        End Set
    End Property
    Public Property montPenalidad() As Decimal
        Get
            Return _montPenalidad
        End Get
        Set(ByVal value As Decimal)
            _montPenalidad = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property desEstado() As String
        Get
            Return _desEstado
        End Get
        Set(ByVal value As String)
            _desEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

    Public Property nombresCompletosCliente() As String
        Get
            Return _nombresCompletosCliente
        End Get
        Set(ByVal value As String)
            _nombresCompletosCliente = value
        End Set
    End Property
    Public Property nombreTpoInmueble() As String
        Get
            Return _nombreTpoInmueble
        End Get
        Set(ByVal value As String)
            _nombreTpoInmueble = value
        End Set
    End Property
    Public Property nroInmueble() As String
        Get
            Return _nroInmueble
        End Get
        Set(ByVal value As String)
            _nroInmueble = value
        End Set
    End Property
    Public Property descMotDevInmueble() As String
        Get
            Return _descMotDevInmueble
        End Get
        Set(ByVal value As String)
            _descMotDevInmueble = value
        End Set
    End Property

    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    Public Property fchInicio() As String
        Get
            Return _fchInicio
        End Get
        Set(ByVal value As String)
            _fchInicio = value
        End Set
    End Property
    Public Property fchFin() As String
        Get
            Return _fchFin
        End Get
        Set(ByVal value As String)
            _fchFin = value
        End Set
    End Property
    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property
    Public Property inmueble() As String
        Get
            Return _inmueble
        End Get
        Set(ByVal value As String)
            _inmueble = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property idProyectoEtapaDevolucion() As String
        Get
            Return idProyecto & "-" & idEtapa & "-" & idDevolucion
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idDevolucion As Int32, ByVal fchDevolucion As String)
        Me.idDevolucion = idDevolucion
        Me.fchDevolucion = fchDevolucion
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idDevolucion As Int32, ByVal fchSeparacionVenta As String, _
                   ByVal idCliente As Int32, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal idEdiMzn As Int32, ByVal nomEdiMzn As String, ByVal idModelo As Int32, ByVal nomModelo As String, _
                   ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, ByVal idUndInmob As Int32, ByVal nroInmueble As String, _
                   ByVal idMotDevInmueble As Int32, ByVal descmotDevInmueble As String, ByVal tpoGestion As Int32, ByVal descGestion As String, _
                   ByVal montPenalidad As Decimal, ByVal fchDevolucion As String, ByVal nroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idDevolucion = idDevolucion
        Me.fchSeparacionVenta = fchSeparacionVenta
        _Ecliente = New Ecliente(idCliente, nombre, apePaterno, apeMaterno)
        Me.nombresCompletosCliente = _Ecliente.NombresCompletos
        _EmodeloInmueble = New EmodeloInmueble(idModelo, nomModelo, idTpoInmueble, descTpoInmueble)
        Me.nombreTpoInmueble = _EmodeloInmueble.NombreTpoInmueble
        _EedificioManz = New EedificioManz(idEdiMzn, nomEdiMzn)

        _EunidInmobiliarias = New EunidInmobiliarias(idUndInmob, nroInmueble)
        Me.nroInmueble = nroInmueble

        _EmotDevInmueble = New EmotDevInmueble(idMotDevInmueble, descmotDevInmueble)
        Me.descMotDevInmueble = _EmotDevInmueble.descMotDevInmueble
        Me.tpoGestion = tpoGestion
        Me.descGestion = descGestion
        Me.montPenalidad = montPenalidad
        Me.fchDevolucion = fchDevolucion
        Me.nroDocumento = nroDocumento
        Me.inmueble = nomEdiMzn + "-" + _EmodeloInmueble.NombreTpoInmueble
    End Sub
#End Region

End Class
